home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
doslbs.zip
/
DOSLIB.CLA
< prev
next >
Wrap
Text File
|
1994-03-14
|
4KB
|
89 lines
PROGRAM
INCLUDE('KeyCodes.EQU')
INCLUDE('Clarion.EQU')
INCLUDE('Errors.EQU')
MAP
Module('DOSLIB01.CLA'); Change_Directory.
Module('DOSLIB02.CLA'); Get_FileName(<String>,<String>),String.
Module('DOSLIB03.CLA'); ViewStyles(<string>).
Module('DOSLIB04.CLA'); Printer_Setup(*Group,<String>,<Byte>).
Module('DOSLIB05.CLA'); GetFileDetails(<String>,<String>,<String>),String.
Module('DOSLIB06.CLA'); ViewPrinters(<String>).
Module('DOSLIB08.CLA'); Calendar(<Long>),Long.
Module('DOSLIB09.CLA'); Select_Printer(<String>,<String>),String.
Module('DL:GetDir')
DL:FindFirst(*CSTRING,*GROUP,SHORT),SHORT,RAW,NAME('_findfirst')
DL:FindNext(*GROUP),SHORT,RAW,NAME('_findnext')
DL:IsAValidDrive(USHORT),USHORT,NAME('Cla$isdrive')
End
END
!
! ------------------------------------------------------------
! Data Declarion for Testing
! ------------------------------------------------------------
!
Omit('**END_DATA_DECLARATION**',Test_Library=0)
Backdrop SCREEN,CUA,COLOR(1)
!dimensions=25,80,25,80
!style=D:\CLARION\DEVELOP\DOSLIB\CLARION.STY
ROW(1,1) PAINT(1,26),COLOR(2)
ROW(1,55) PAINT(1,26),COLOR(2)
ROW(1,27) STRING('DOS Library Testing Facility'),COLOR(2)
REPEAT(24)
ROW(2,1) STRING('▒{80}')
.
.
PullDown_Menu PULLDOWN,COLOR(44,45,49,46,52),HALF(120),LOCAL,SHADOW,AT(2)
!style=D:\CLARION\DEVELOP\DOSLIB\Clarion.Sty
MENU('Dos Library'),COLOR(47,48,49,50,51)
ITEM('Open'),USE(?Open_a_File)
ITEM('Change &Directory'),USE(?Change_Directory)
ITEM('-')
ITEM('Edit Color Scheme'),USE(?Edit_Color_Scheme)
ITEM('-')
ITEM('Select a Printer'),USE(?Select_a_Printer)
ITEM('P&rinter Defaults'),USE(?Printer_Defaults)
ITEM('Edit &Printers'),USE(?Edit_Printers)
ITEM('-')
ITEM('C&alendar'),USE(?Calendar)
ITEM('-')
ITEM('E&xit'),USE(?Exit),KEY(CtrlX)
.
.
PrinterConts Group
Destination String('SCREEN')
Filespec String(64)
PrinterName String(30)
Control_BF String(30)
Control_AFT String(30)
Lines_Page Short(60)
.
! **END_DATA_DECLARATION**
Code
Omit('**END_CODE_SECTION**',Test_Library=0)
LoadSymbols()
LoadBorder()
SetMouse(1,1)
GetStyles('C:\Clarion3\Clarion.Sty')
Open(BackDrop)
Open(PullDown_Menu)
Loop
Accept
Case Field()
Of ?Open_a_File ; Dummy# = Get_FileName('*.CLA','')
Of ?Change_Directory ; Change_Directory
Of ?Edit_Color_Scheme ; ViewStyles()
Of ?Printer_Defaults ; Printer_Setup(PrinterConts)
Of ?Select_a_Printer ; x" = Select_Printer('')
Of ?Edit_Printers ; ViewPrinters()
Of ?Calendar ; x# = Calendar(Today())
Of ?Exit ; Return
. .
! **END_CODE_SECTION**
Return